home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
SCREEN.PRG
< prev
next >
Wrap
Text File
|
1996-01-13
|
11KB
|
534 lines
**************************************************
PROCEDURE cls
PARAMETERS x,y,z,q
SET COLOR TO N/N
@ x,y CLEAR TO z,q
RETURN
**************************************************
PROCEDURE BoxW
PARAMETERS x,y,z,q
SET COLOR TO W/W
@ x,y CLEAR TO z,q
SET COLOR TO W+/W
@ x,y SAY "┌"
@ x,y+1 TO x,q
@ x,q SAY "┐"
@ x+1,y TO z,y
@ z,y SAY "└"
SET COLOR TO N/W
@ x+1,q TO z,q
@ z,y+1 TO z,q
@ z,q SAY "┘"
RETURN
**************************************************
PROCEDURE BoxB
PARAMETERS x,y,z,q
SET COLOR TO B/B
@ x,y CLEAR TO z,q
SET COLOR TO B+/B
@ x,y SAY "┌"
@ x,y+1 TO x,q && Top
@ x,q SAY "┐"
@ x+1,y TO z,y && Left Side
@ z,y SAY "└"
SET COLOR TO N/B
@ x+1,q TO z,q && Right Side
@ z,y+1 TO z,q && Bottom
@ z,q SAY "┘"
SET COLOR TO W+/B
RETURN
**************************************************
PROCEDURE BoxBG
PARAMETERS x,y,z,q
SET COLOR TO BG/BG
@ x,y CLEAR TO z,q
SET COLOR TO BG+/BG
@ x,y SAY "┌"
@ x,y+1 TO x,q
@ x,q SAY "┐"
@ x+1,y TO z,y
@ z,y SAY "└"
SET COLOR TO N/BG
@ x+1,q TO z,q
@ z,y+1 TO z,q
@ z,q SAY "┘"
RETURN
**************************************************
PROCEDURE ta && Trailer Area list
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY "<Enter>"
@ 21,45 SAY "Cursor Keys"
@ 22,3 SAY "S"
@ 22,45 SAY "N"
@ 23,3 SAY "D"
@ 23,45 SAY "? <Esc>"
SET COLOR TO W+/R
@ 21,11 SAY "= Listings in highlited area"
@ 21,57 SAY "= Move highlite"
@ 22,5 SAY "= Search, all areas"
@ 22,47 SAY "= New listings"
@ 23,5 SAY "= Download tagged listings"
@ 23,47 SAY "= Help"
@ 23,63 SAY "= Quit"
RETURN
**************************************************
PROCEDURE tf && Trailer Full Screen Edit
SET COLOR TO GR+/R
@ 21,3 CLEAR TO 23,79
@ 21,3 SAY "Cursor Keys"
@ 21,50 SAY "<Enter>"
@ 22,3 SAY "<Page Dn>"
SET COLOR TO W+/R
@ 21,15 SAY "= Move between/within fields"
@ 21,58 SAY "= Next field"
@ 22,13 SAY "= Finish entering data"
RETURN
**************************************************
PROCEDURE tl && Trailer List
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY "<Enter>"
@ 21,48 SAY "T"
@ 22,3 SAY "S"
@ 22,48 SAY "V"
@ 23,3 SAY "D"
@ 23,48 SAY "? <Esc>"
SET COLOR TO W+/R
@ 21,11 SAY "= View highlited listing"
@ 21,50 SAY "= Tag/Untag for download/view"
@ 22,5 SAY "= Search in this area only"
@ 22,50 SAY "= View tagged listings"
@ 23,5 SAY "= Download pictures of highlited listing"
@ 23,50 SAY "= Help"
@ 23,64 SAY "= Area Screen"
RETURN
**************************************************
PROCEDURE ts && Trailer Scroll
SET COLOR TO GR+/R
@ 23,5 SAY "Up/Dn Arrow "
SET COLOR TO W+/R
@ 23,17 SAY "= Next/Previous Listing"
RETURN
**************************************************
PROCEDURE tt && Trailer Tag and Download
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "T"
@ 21,45 SAY "<Esc>"
SET COLOR TO W+/R
@ 21,7 SAY "= Tag/Untag for Download"
@ 21,51 SAY "= Quit View Screen"
RETURN
**************************************************
PROCEDURE ty && Trailer Yes - No
SET COLOR TO GR+/R
@ 21,3 CLEAR TO 23,79
@ 21,10 SAY "Y"
@ 22,10 SAY "N"
SET COLOR TO W+/R
@ 21,12 SAY "= yes"
@ 22,12 SAY "= no"
RETURN
****************************************************
PROCEDURE escr && Edit screen
DO BoxBG WITH 5,18,17,50
@ 7,26 SAY "] New Listing"
@ 9,26 SAY "] Add Picture/Map"
@ 11,26 SAY "] Update"
@ 13,26 SAY "] Delete"
@ 15,26 SAY "] View and Tag"
SET COLOR TO BG+/BG
@ 7,24 SAY "["
@ 9,24 SAY "["
@ 11,24 SAY "["
@ 13,24 SAY "["
@ 15,24 SAY "["
SET COLOR TO GR+/BG
@ 7,25 SAY "N"
@ 9,25 SAY "P"
@ 11,25 SAY "U"
@ 13,25 SAY "D"
@ 15,25 SAY "V"
RETURN
****************************************************
PROCEDURE pscr && Picture screen
DO BoxBG WITH 6,18,16,50
@ 8,26 SAY "] Picture of Home"
@ 10,26 SAY "] Map of Property"
@ 12,26 SAY "] Floor Plan"
@ 14,26 SAY "] Interior Picture"
SET COLOR TO BG+/BG
@ 8,24 SAY "["
@ 10,24 SAY "["
@ 12,24 SAY "["
@ 14,24 SAY "["
SET COLOR TO GR+/BG
@ 8,25 SAY "P"
@ 10,25 SAY "M"
@ 12,25 SAY "F"
@ 14,25 SAY "I"
RETURN
*************************************************************
PROCEDURE e2scr && 2nd Edit Screen
DO cls WITH 2,0,20,79
SET COLOR TO W+/W
@ 3,6 CLEAR TO 19,48
@ 3,6 SAY "┌─────────────────────────────────────────┐"
@ 4,6 SAY "│"
@ 5,6 SAY "│"
@ 6,6 SAY "├"
@ 7,6 TO 18,6
@ 11,6 SAY "├─────────────────────────────────────────"
@ 19,6 SAY "└"
@ 4,27 SAY pic1
@ 7,21 SAY area
@ 8,21 SAY sub
@ 9,21 SAY design
@ 10,21 SAY exterior
SET COLOR TO N/W
@ 4,48 TO 18,48
@ 4,7 SAY " Reference Number:"
@ 5,7 SAY " ( Please write this number down )"
@ 6,7 SAY "─────────────────────────────────────────┤"
@ 7,8 SAY "Area:"
@ 8,8 SAY "Subdivision:"
@ 9,8 SAY "Home Design:"
@ 10,8 SAY "Exterior:"
@ 11,48 SAY "┤"
@ 12,8 SAY "Home Size? (sq. feet) [ ]"
@ 13,8 SAY "Lot Size? (acres) [ ]"
@ 14,8 SAY "Bedrooms? (1-9) [ ]"
@ 15,8 SAY "Bathrooms? (.5 - 9.5) [ ]"
@ 16,8 SAY "Number of Fireplaces? (0-9) [ ]"
@ 17,8 SAY "Garage? [ ]"
@ 18,8 SAY "Basement? [ ]"
@ 19,7 SAY "─────────────────────────────────────────┘"
REPLACE beds WITH 1, baths WITH .5
RETURN
**************************************************
PROCEDURE sscr && Search screen
DO cls WITH 2,0,20,79
SET COLOR TO R/R
@ 0,0 CLEAR TO 1,72
SET COLOR TO W+/R
@ 0,73 SAY "SEARCH"
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY "Cursor Keys"
@ 21,47 SAY "<Page Down>"
@ 22,3 SAY "<Enter>"
@ 22,47 SAY "<Page Up>"
@ 23,3 SAY "?"
@ 23,47 SAY "<Esc>"
SET COLOR TO W+/R
@ 21,15 SAY "= Move between/within fields"
@ 21,59 SAY "= Pick List"
@ 22,11 SAY "= Next field"
@ 22,57 SAY "= Search, View matches"
@ 23,5 SAY "= Help"
@ 23,53 SAY "= Quit Search Screen"
SET COLOR TO BG+/BG
@ 3,6 CLEAR TO 18,48
@ 3,6 SAY "┌─────────────────────────────────────────┐"
@ 4,6 TO 17,6
@ 7,6 SAY "├"
@ 12,6 SAY "├─────────────────────────────────────────"
@ 18,6 SAY "└"
SET COLOR TO N/BG
@ 4,48 TO 17,48
@ 4,8 SAY "Maximum Price:"
@ 5,8 SAY "Subdivision: [ ]"
@ 6,8 SAY "Home Design: [ ]"
@ 7,7 SAY "─────────────────────────────────────────┤"
SET COLOR TO GR+/BG
@ 8,8 SAY "Minimum"
@ 13,8 SAY "Require"
SET COLOR TO N/BG
@ 8,16 SAY "Home Size:"
@ 9,8 SAY " Lot Size:"
@ 10,8 SAY " Bedrooms:"
@ 11,8 SAY " Baths:"
@ 12,48 SAY "┤"
@ 13,16 SAY "Heat Pump?"
@ 14,8 SAY " Basement?"
@ 15,8 SAY " Fireplace?"
@ 16,8 SAY " Garage?"
@ 17,8 SAY " Central Air?"
@ 18,7 SAY "─────────────────────────────────────────┘"
RETURN
*******************************************************
PROCEDURE uscr && Update Screen
SET COLOR TO W+/R
@ 0,73 SAY "UPDATE"
DO cls WITH 2,0,20,79
SET COLOR TO BG/N
@ 3,3 SAY "Reference Number:"
@ 5,9 SAY "[ ] ( Options: )"
@ 7,10 SAY "[ ]"
@ 9,16 SAY "[ ]"
@ 10,14 SAY "[ ]"
@ 11,22 SAY "[ ]"
@ 12,3 SAY " ( or backup to Heat Pump. If no backup, enter )"
SET COLOR TO GR+/N
@ 3,21 SAY pic1
@ 5,30 SAY "Listed, Model, Pending, Sold"
@ 12,51 SAY "Heat Pump"
SET COLOR TO W+/N
@ 5,3 SAY "Status:"
@ 7,3 SAY "Price?"
@ 9,3 SAY "Central Air?"
@ 10,3 SAY "Heat Pump?"
@ 11,3 SAY "Primary Heat Type?"
@ 15,2 SAY "┌"
@ 15,78 SAY "┐"
@ 16,2 TO 18,2
@ 16,78 TO 18,78
@ 19,2 SAY "└"
@ 19,78 SAY "┘"
RETURN
**************************************************
PROCEDURE vscr && View screen
DO cls WITH 2,0,20,79
SET COLOR TO W+/N
@ 5,45 SAY "Lot size:"
@ 6,8 SAY "Home size:"
@ 6,45 SAY "Exterior:"
@ 7,8 SAY "Bedrooms:"
@ 7,45 SAY "Garage:"
@ 8,8 SAY "Bathrooms:"
@ 8,45 SAY "Basement:"
@ 9,8 SAY "Heat Type:"
@ 9,45 SAY "Central Air:"
RETURN
**************************************************
PROCEDURE view
SET COLOR TO W+/R
@ 0,73 SAY "VIEW "
@ 1,5 CLEAR TO 1,35
@ 1,8 SAY pic1
SET COLOR TO GR+/N
@ 3,8 SAY "$"
@ 3,9 SAY price PICTURE "@B 9,999,999"
@ 3,45 SAY design
IF status # "Listed"
SET COLOR TO W+/N
@ 3,19 SAY Upper(status)
ELSE
@ 3,19 SAY " "
ENDIF
IF sub = "..Not in Subdivision"
SET COLOR TO W+/N
@ 5,8 SAY "Not in Subdivision "
SET COLOR TO BG/N
ELSE
SET COLOR TO W+/N
@ 5,8 SAY "Subdivision: "
SET COLOR TO BG/N
@ 5,21 SAY sub
ENDIF
@ 5,55 SAY acres PICTURE "@B 999.99"
@ 5,col() SAY "acres"
@ 6,19 SAY size
@ 6,Col()+1 SAY "square feet"
@ 6,55 SAY exterior
@ 7,18 SAY beds PICTURE "@B 9"
IF garage
@ 7,53 SAY "Yes "
ELSE
@ 7,53 SAY "None"
ENDIF
@ 8,19 SAY baths PICTURE "@Z 9"
IF IsInt(baths)
@ 8,Col()+1 SAY " "
ELSE
@ 8,Col()+1 SAY "1/2"
ENDIF
IF basement
@ 8,55 SAY "Yes "
ELSE
@ 8,55 SAY "None"
ENDIF
IF heatpump
@ 9,19 SAY "Heat Pump "
SET COLOR TO W+/N
@ 10,8 SAY "Backup Heat:"
SET COLOR TO BG/N
@ 10,21 SAY heat
ELSE
@ 9,19 SAY heat
ENDIF
IF ac
@ 9,58 SAY "Yes"
ELSE
@ 9,58 SAY "No "
ENDIF
IF fireplace # 0
SET COLOR TO W+/N
@ 10,45 SAY "Fireplaces:"
SET COLOR TO BG/N
@ 10,57 SAY fireplace
ELSE
SET COLOR TO N/N
@ 10,45 CLEAR TO 10,59
SET COLOR TO BG/N
ENDIF
@ 12,3 SAY memo1
@ 13,3 SAY memo2
@ 14,3 SAY memo3
SELECT c
SEEK a->broker
IF Found()
SET COLOR TO W+/N
@ 16,29 SAY agency
@ 17,29 SAY address
@ 18,29 SAY city
@ 17,3 SAY uname
SET COLOR TO BG/N
@ 17,55 SAY phone1
@ 18,3 SAY homeph
@ 18,55 SAY phone2
ENDIF
SELECT a
RETURN